5 PRINT"[147]"
20 PRINT"****************************************"
30 PRINT"*             LABEL PRINTER            *"
40 PRINT"*                   BY                 *"
45 PRINT"*              RON DULANEY             *"
50 PRINT"****************************************"
60 PRINT"     THIS PROGRAM IS DESIGNED TO PRINT"
70 PRINT"LABELS NOT USED FOR ADDRESSES. THIS IS"
80 PRINT"MY FIRST ATTEMPT AT AN UPLOAD FOR Q LINK"
90 PRINT""
100 PRINT"    IT IS ALSO SO THAT I HAVE SOMETHING"
120 PRINT"TO USE MYSELF TO LABEL MY DOCUMENTS AND"
130 PRINT"LISTS THAT I KEEP IN 3 RING NOTEBOOK"
140 PRINT"BINDERS.  I HOPE YOU LIKE IT AND CAN"
150 PRINT"USE IT"
160 PRINT"               PRESS RETURN"
170 INPUT
180 PRINT"[147]"
190 PRINT"****************************************"
200 PRINT"*     IF THIS LITTLE PROGRAM DOES YOU  *"
210 PRINT"* SOME GOOD YOU MIGHT SEND A CARD OR A *"
220 PRINT"* BUCK TO ME AT: RR#1, GALVESTON, IN.  *"
230 PRINT"* 46932. OR E MAIL TO RONALDD3 HAVE FUN*"
240 PRINT"****************************************"
242 PRINT:PRINT"              TEST PRINT? Y/N"
244 INPUT B$:IF B$="Y" THEN GOTO 900
245 IF B$="N" GOTO 248
246 PRINT"                TEST AGAIN? Y/N"
247 INPUT C$:IF C$="Y" GOTO 900:IF C$="N" GOTO 248
248 PRINT"[147]"
250 PRINT"  **************       UP TO 5 LINES"
260 PRINT"  * 3 LINES OF *          OF DATA  "
270 PRINT"  * DATA WITH  *         WITHOUT A "
280 PRINT"  * A BORDER   *       BORDER AROUND"
290 PRINT"  **************            IT[160][160][160][160]"
300 PRINT""
310 PRINT"        A                    B"
320 PRINT"  30 CHARECTORS        32 CHARECTORS"
325 PRINT""
330 PRINT" TYPE A OR B AND PRESS RETURN TO CHOOSE"
340 INPUT A$: IF A$="A" GOTO 400
350 IF A$="B" GOTO 700
400 GOTO 405
405 PRINT"[147]"
410 PRINT"PRINT 3 LINES OF DATA 1 LINE AT EACH"
420 PRINT"PROMPT. TO LEAVE A LINE BLANK SIMPLY"
430 PRINT"PRESS RETURN AT THAT PROMPT"
440 PRINT"                 LINE 1"
450 INPUT E$
455 PRINT"                 LINE 2"
460 INPUT F$
465 PRINT"                 LINE 3"
470 INPUT G$
475 PRINT"           "E$
480 PRINT"           "F$
485 PRINT"           "G$
490 PRINT:PRINT"           IS THIS CORRECT? Y/N":INPUT I$:IF I$="Y" GOTO 500
495 IF I$="N" GOTO 405
500 OPEN3,4:CMD3
501 PRINT#3,"  **********************************"
510 PRINT#3,"   "E$
520 PRINT#3,"   "F$
530 PRINT#3,"   "G$
540 PRINT#3,"  **********************************"
541 CLOSE 3,4
545 PRINT:PRINT"             PRINT ANOTHER? Y/N"
550 INPUT L$:IF L$="Y" GOTO 248
560 IF L$="N" THEN END
561 END
565 CLOSE 4
699 PRINT"[147]"
700 PRINT"TYPE 5 LINES OF DATA 1 AT EACH PROMPT"
710 PRINT"TO LEAVE A LINE BLANK SIMPLY PRESS"
720 PRINT"RETURN AT THAT PROMPT."
725 PRINT"                 LINE 1":INPUT D$
730 PRINT"                 LINE 2":INPUT X$
735 PRINT"                 LINE 3":INPUT Y$
740 PRINT"                 LINE 4":INPUT Z$
745 PRINT"                 LINE 5":INPUT H$
750 PRINT:PRINT"            "D$:PRINT"            "X$:PRINT"            "Y$
755 PRINT"            "Z$
756 PRINT"            "H$
760 PRINT:PRINT"           IS THIS CORRECT? Y/N":INPUT M$:IF M$="Y" GOTO 800
765 IF M$="N" GOTO 699
800 OPEN3,4
801 PRINT#3,"   "D$
810 PRINT#3,"   "X$
820 PRINT#3,"   "Y$
830 PRINT#3,"   "Z$
840 PRINT#3,"   "H$
842 CLOSE 3,4
845 PRINT:PRINT"            PRINT ANOTHER? Y/N"
850 INPUT J$:IF J$="Y" GOTO 248
860 IF J$="N" THEN CLOSE 3,4
861 END
865 PRINT"A WITH BORDER":PRINT"B NO BORDER
870 [133] K$:[139] K$[178]"A" [137] 500
880 [139] K$[178]"B" [137] 700
900 [159]3,4:[157]3
901 [152]3,"  **********************************"
910 [152]3,"  *                                *"
920 [152]3,"  *         YOUR DATA HERE         *"
930 [152]3,"  *                                *"
940 [152]3,"  **********************************"
945 [160]3,4
950 [137] 246